home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2000-02_2000_CSW_Side_A.d64 / calc. ram-size (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  668b  |  33 lines
  1. 1 rem ** calculate simm-size
  2. 2 rem ** by wolfram sang for go64!/cw
  3. 3 rem **
  4. 110 for i=0 to 4:read r(i),c(i):next i
  5. 115 :
  6. 120 t=peek(53883)
  7. 125 :
  8. 130 print"[147]$d27b(53883) returned:"t
  9. 131 if t>4 then print:print"no superramcard found!":end
  10. 135 :
  11. 140 print:print"simm-type:"r(t)"/"c(t)
  12. 145 :
  13. 150 nc=2^c(t)
  14. 160 print:print"number of cells: 2 ^"c(t)"="nc
  15. 165 :
  16. 170 lr=nc*4
  17. 180 print:print"length of a row:"nc"* 4 ="lr
  18. 185 :
  19. 190 nr=2^r(t)
  20. 200 print:print"number of rows: 2 ^"r(t)"="nr
  21. 205 :
  22. 210 b=lr*nr:mb=b/(1024*1024)
  23. 220 print:print"total:"lr"*"nr"="b"("mb"mb )"
  24. 230 end
  25. 997 :
  26. 998 rem simm-datas (row, column)
  27. 999 :
  28. 1000 data 9,9  : rem  case t=0
  29. 1010 data 10,10: rem  case t=1
  30. 1020 data 11,10: rem  case t=2
  31. 1030 data 12,10: rem  case t=3
  32. 1040 data 11,11: rem  case t=4
  33.